home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / Programming / Basic_Tutorial_8 / MyLotto.bas < prev    next >
BASIC Source File  |  1992-03-30  |  1KB  |  52 lines
  1.  
  2. DIM check(45)
  3. SCREEN 1,320,256,3,1
  4. WINDOW 2,,,0,1
  5.  FOR q = 0 TO 7
  6.  READ r,g,b
  7.  PALETTE q,r/16,g/16,b/16
  8.  NEXT q
  9.  DATA 16,5,16, 16,5,16, 16,5,16, 0,11,0, 16,14,0, 0,0,16, 0,0,0, 14,2,0
  10. Flag=1
  11.  
  12. Lot1:
  13. LINE(44,92)-(260,126),6,bf  :  LINE(40,88)-(256,122),7,bf
  14. LINE(40,88)-(256,122),4,b
  15. LINE(44,136)-(110,170),6,bf :  LINE(40,132)-(106,164),4,bf
  16. LINE(40,132)-(106,164),7,b
  17. LINE(196,136)-(260,170),6,bf:  LINE(192,132)-(256,164),4,bf
  18. LINE(192,132)-(256,164),7,b
  19. COLOR 6,4
  20. LOCATE 19,8:PRINT "LOTTO":LOCATE 19,27:PRINT"QUIT"
  21. IF Flag=1 THEN GOTO Dloop
  22. RANDOMIZE TIMER
  23. FOR ch=1 TO 45:check(ch)=0:NEXT ch
  24. xpos=8
  25. FOR place=1 TO 6
  26. Again:
  27. FOR d=1 TO 20
  28. x(place)=INT(RND*45+1)
  29. LOCATE 14,xpos:COLOR 6,7
  30. PRINT USING "##";x(place)
  31. NEXT d
  32. IF check(x(place))=1 THEN Again
  33. check(x(place))=1
  34. xpos=xpos+4
  35. NEXT place
  36. LOCATE 25,1
  37. Dloop:
  38. xx=0
  39. WHILE xx=0
  40. xx=MOUSE(0)
  41. WEND:x=MOUSE(1):Y=MOUSE(2)
  42. IF x>=40 AND x<=106 AND Y>=132 AND Y<=164 THEN
  43. Flag=0
  44. LINE(40,132)-(106,164),5,bf
  45. LOCATE 19,8:COLOR 6,5: PRINT "LOTTO"
  46. IF xx<>-1 THEN GOTO Lot1
  47. END IF
  48. IF x>=192 AND x<=256 AND Y>=132 AND Y<=164 THEN SYSTEM
  49. GOTO Dloop
  50.  
  51.  
  52.